home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / ATTR.TSL < prev    next >
Encoding:
Text File  |  1995-08-10  |  1.5 KB  |  53 lines
  1. % -----------------------------------------------------------------------------
  2. %  Attribute demo                                      *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : ATTR.TSL
  7. %  Company          : BLOKKER+BLOKKER Software and Bo Bendtsen
  8. %  Programmer       : Joop Blokker
  9. %  Module created   : 09 Aug 1995
  10. %  Latest revision  : 10 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Demonstration of ATTR and GetAttrXY command
  13. %
  14. % -----------------------------------------------------------------------------
  15. %
  16.  
  17. Include color.inc
  18.  
  19. ClearScreen
  20. %
  21. % Save current screen color of column 1, row 1
  22. %
  23. Set SaveColor = GetAttrXY(1, 1)
  24. PrintLn "The current color attribute is ",SaveColor
  25. PrintLn ""
  26. %
  27. % calculate color attributes
  28. % foreground + (background * 16)
  29. %
  30. Set WhiteOnRed = White + (Red * 16)
  31. Set WhiteOnGray = White + (LightGray * 16)
  32. Set YellowOnBlue = Yellow + (Blue * 16)
  33.  
  34. SetAttr WhiteOnRed
  35. PrintLn "This is white text on red background   "
  36. SetAttr WhiteOnGray
  37. PrintLn "This is white text on white background "
  38. SetAttr YellowOnBlue
  39. PrintLn "This is yellow text on blue background "
  40. Set Attr=Red + Flash
  41. PrintLn "This is flashing red, also known as blink "
  42. %
  43. % Restore original color
  44. %
  45. Set Attr = SaveColor
  46. PrintLn ""
  47. PrintLn "Attribute is reset to original color."
  48. PrintLn ""
  49. PrintLn "Press Enter, please."
  50. WaitEnter
  51. ClearScreen
  52.  
  53.